下载歌曲：《<%=MusicName%>》

<%PageName="UserModify"%> <% if request("ddid")<>"" and session("ddiduse")="" then session("ddiduse")=nnoo(request("ddid")) end if set rs=server.createobject("adodb.recordset") sql="SELECT kai,host,logo,gongsi,shopover2,shoprecord,bbskai,fakai,xshangzong,paimaikai,bbskainame,guang1,guang11,paimainame,yinkai,gengduo,xdizhi,xdizhi2,xjie,shopover from ylmv_home " rs.open sql,conn,1,3 vvhost=rs("host") vshopover=rs("shopover2") vbbskai=rs("bbskai") vpaimaikai=rs("paimaikai") vbbskainame=rs("bbskainame") vguang1=rs("guang1") vguang11=rs("guang11") vpaimainame=rs("paimainame") vvvyinkai=rs("yinkai") vvvgengduo=rs("gengduo") vvvhost=rs("host") vvvxdizhi2=rs("xdizhi2") vvvxdizhi=rs("xdizhi") vvvshoprecord=rs("shoprecord") vvvxjie=rs("xjie") vvvxshangzong=rs("xshangzong") vvvkai=rs("kai") vvvfakai=rs("fakai") vlogo=rs("logo") vvgongsi=rs("gongsi") if rs("shopover")=1 then Response.Write "" response.end end if rs.close %> <% if vpaimaikai<>1 then Response.Write "" Response.end end if %> <% Dim id,MusicArray,MusicNum,songpath,hits id=request.QueryString("id") If id="" Then Response.Write ("") Response.end End If '创建排列顺序 MusicArray=Split(id, ",") MusicNum = UBound(MusicArray) set rs=server.createobject("adodb.recordset") For i=0 To MusicNum sql="select Musicname,Wma,Singer,hits,song_path from [MusicList] where id ="&MusicArray(i) rs.open sql,conn,1,3 If not rs.eof Then rs("hits")=rs("hits")+1 rs.Update MusicName=rs("MusicName") Singer=rs("Singer") songpath=rs("song_path") If songpath="" or IsNull(songpath) Then songpath=1 End If Select Case songpath Case 1 song_path=song_path1 Case 2 song_path=song_path2 Case 3 song_path=song_path3 Case 4 song_path=song_path4 Case 5 song_path=song_path5 Case else song_path=song_path1 End Select song_path=song_path&rs("Wma") %> <% End If rs.close Next conn.close set rs=nothing %> 下载歌曲：《<%=MusicName%>》

歌曲名称：

<%=MusicName%>

歌手姓名：

<%=Singer%>

支持中国影音,杜绝翻版,从我做起!
请购买正版